home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _gs / !GS / gsf / HRIT_R < prev    next >
Text File  |  1991-06-13  |  11KB  |  214 lines
  1. %!
  2. % Common definitions for the Hershey fonts.
  3.  
  4. /MakeHersheyFont where
  5.  { pop 80 string
  6.     { currentfile 1 index readline pop
  7.        (%END) eq { exit } if
  8.     } loop pop
  9.  } if
  10.  
  11. userdict begin
  12. /HersheyBuildDict 10 dict def
  13.  
  14. /BuildHersheyChar {
  15.     exch begin
  16.         PenWidth setlinewidth
  17.         Encoding exch get
  18.         dup CharData exch known not { pop /.notdef } if
  19.         CharData exch get
  20.     end
  21.     /cd exch def
  22.  
  23.     /llx 99 def /lly 99 def /urx -99 def /ury -99 def
  24.     true
  25.  
  26.     cd 2 get {
  27.         exch {
  28.             dup 32 eq {
  29.                 pop true
  30.             } {
  31.                 82 sub cd 0 get sub
  32.  
  33.                 dup llx lt {
  34.                     dup /llx exch def
  35.                 } if
  36.                 dup urx gt {
  37.                     dup /urx exch def
  38.                 } if
  39.                 pop false
  40.             } ifelse
  41.         } {
  42.             neg 91 add
  43.  
  44.             dup lly lt {
  45.                 dup /lly exch def
  46.             } if
  47.             dup ury gt {
  48.                 dup /ury exch def
  49.             } if
  50.             pop true
  51.         } ifelse
  52.     } forall pop
  53.  
  54.     cd 1 get cd 0 get sub 0 llx 1 sub lly 1 sub urx 1 add ury 1 add
  55.     setcachedevice
  56.  
  57.     /domove true def
  58.     true
  59.  
  60.     cd 2 get {
  61.         exch {
  62.             dup 32 eq {
  63.                 pop true
  64.                 /domove true def
  65.             } {
  66.                 82 sub cd 0 get sub
  67.                 false
  68.             } ifelse
  69.         } {
  70.             neg 91 add
  71.             domove {
  72.                 moveto
  73.                 /domove false def
  74.             } {
  75.                 lineto
  76.             } ifelse
  77.             true
  78.         } ifelse
  79.     } forall pop
  80.  
  81.     1 setmiterlimit 1 setlinejoin 1 setlinecap
  82.     stroke
  83. } bind def
  84.  
  85. /MakeHersheyFont {
  86.     10 dict dup begin
  87.     exch /ItalicAngle exch def
  88.     exch /PenWidth exch def
  89.     exch /FontName exch def
  90.     exch /CharData exch def
  91.  
  92.     /FontType 3 def
  93.     /FontMatrix 
  94.         [1 33 div
  95.         0
  96.         ItalicAngle neg dup sin exch cos div 33 div
  97.         1 33 div
  98.         0 0] def
  99.     /Encoding StandardEncoding def
  100.     /BuildChar {HersheyBuildDict begin BuildHersheyChar end} def
  101.     /FontBBox [-10 -10 30 30] def
  102.  
  103.     FontName end exch definefont
  104. } bind def
  105. end        % userdict
  106. %END
  107.  
  108. 150 dict dup begin
  109. /hyphen [-6 6 (NRVR)] def
  110. /bar [-4 4 (RBRb)] def
  111. /periodcentered [-5 5 (RQQRRSSRRQ)] def
  112. /numbersign [-10 11 (SBLb YBRb LOZO KUYU)] def
  113. /currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
  114. /bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
  115. /slash [-7 7 (K^YF)] def
  116. /backslash [-7 7 (KFY^)] def
  117. /tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
  118. /bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
  119. /bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
  120. /braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
  121. /braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  122. /less [-12 12 (ZIJRZ[)] def
  123. /greater [-12 12 (JIZRJ[)] def
  124. /asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
  125. /asciicircum [-11 11 (JTROZT JTRPZT)] def
  126. /percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
  127. /at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
  128. /section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
  129. /dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
  130. /daggerdbl [-8 8 (RFQHRJSHRF RFRT RPQRSVRXQVSRRP RTRb R^Q`RbS`R^ LMNNPMNLLM LMXM TMVNXMVLTM L[N\\P[NZL[ L[X[ T[V\\X[VZT[)] def
  131. /space [-4 4 ()] def
  132. /zero [-10 10 (LHLXJY MIMXPZ NHNXPYQZ LHNHSGUF SGTHVIVY TGWIWX UFVGXHZHXIXY JYLYNZO[QZVYXY)] def
  133. /one [-10 10 (OHPIQKQXOY QIPHQGRIRYTZ OHRFSHSXUYVY OYPYRZS[TZVY)] def
  134. /two [-10 10 (LHNHPGQFSGVHXH PHRG LHNIPIRHSG VHVP WIWO XHXPQPNQLSKVK[ K[OYSXVXZY NZQYVYYZ K[PZUZX[ZY)] def
  135. /three [-10 10 (LHMHOGPFRGVHXH OHQG LHNIPIRG VHVO WIWN XHXOVOSPQQ QPSQVRXRXY WSWX VRVY KYMXOXQYRZ OYQZ KYMYOZP[RZVYXY)] def
  136. /four [-10 10 (UFKPKUTU VUZU[V[TZU LPLT MNMU TGTXRY UJVHUGUYWZ UFWHVJVXXYYY RYSYUZV[WZYY)] def
  137. /five [-10 10 (LFLO LFXF MGVG LHUHWGXF VLUMSNOOLO SNTNVOVY UMWNWX VLWMYNZNXOXY KYMXOXQYRZ OYQZ KYMYOZP[RZVYXY)] def
  138. /six [-10 10 (LHLXJY MIMXPZ NHNXPYQZ LHNHRGTFUGWHXH SGUH RGTIVIXH NPOPSOUNVM SOTOVPVY UNWPWX VMWNYOZOXPXY JYLYNZO[QZVYXY)] def
  139. /seven [-10 10 (KHMFPGUGZF LGOHTHWG KHOIRIVHZF ZFYHWKSOQRPUPXQ[ RQQTQWRZ UMSPRSRVSYQ[)] def
  140. /eight [-10 10 (LILO MJMN NINO LINISHUGVF SHTHVIVO UGWHWN VFWGYHZHXIXO LONOVRXR XOVONRLR LRLXJY MSMXPZ NRNXPYQZ VRVY WSWX XRXY JYLYNZO[QZVYXY)] def
  141. /nine [-10 10 (LHLQJR MIMROS NHNQPRQR LHNHSGUF SGTHVIVY TGWIWX UFVGXHZHXIXY JRKRMSNTOSQRUQVQ KYMXOXQYRZ OYQZ KYMYOZP[RZVYXY)] def
  142. /period [-6 6 (RXPZR[TZRX RYQZSZRY)] def
  143. /comma [-6 6 (R^R\\PZRXSZS\\R^P_ RYQZR[RY)] def
  144. /colon [-6 6 (RMPORPTORM RNQOSORN RXPZR[TZRX RYQZSZRY)] def
  145. /semicolon [-6 6 (RMPORPTORM RNQOSORN R^R\\PZRXSZS\\R^P_ RYQZR[RY)] def
  146. /exclam [-6 6 (RFQGOHQIRT RISHRGQHRIRT RFSGUHSIRT RXPZR[TZRX RYQZSZRY)] def
  147. /question [-9 9 (LJMHNGQFSFVGWHXJXLWNUPSQ MJNH VHWIWMVN LJNKNIOGQF SFUGVIVMUOSQ RQRTSQQQRT RXPZR[TZRX RYQZSZRY)] def
  148. /quoteleft [-6 6 (TFRGQIQKRMTKRIRG RJRLSKRJ)] def
  149. /quoteright [-6 6 (RLRJPHRFSHSJRLPM RGQHRIRG)] def
  150. /ampersand [-13 13 (YNZO[O\\N XOYP[P XPYQZQ[P\\N YNST RUL[HVNP OOSKOFJLPRTXVZX[Z[[Z\\X LZIV RKOG KLPQTWVYXZ[Z MZIU RLNG KKQQUWVXXY[Y\\X)] def
  151. /dollar [-10 10 (PBP_ TBT_ TFVGWIWKYJXHWGTFPFMGKIKLLNOPURWSXUXXWZ XJWH LLMNOOUQWRXT MYLW MGLILKMMONUPXRYTYWXYWZT[P[MZLYKWMVMXNZP[)] def
  152. /parenleft [-7 7 (UBSDQGOKNPNTOYQ]S`Ub QHPKOOOUPYQ\\ SDRFQIPOPUQ[R^S`)] def
  153. /parenright [-7 7 (OBQDSGUKVPVTUYS]Q`Ob SHTKUOUUTYS\\ QDRFSITOTUS[R^Q`)] def
  154. /asterisk [-8 8 (RFQGSQRR RFRR RFSGQQRR MINIVOWO MIWO MIMJWNWO WIVINOMO WIMO WIWJMNMO)] def
  155. /plus [-12 13 (RIRZSZ RISISZ JQ[Q[R JQJR[R)] def
  156. /equal [-12 13 (JM[M[N JMJN[N JU[U[V JUJV[V)] def
  157. /quotesingle [-4 5 (SFRGRM SGRM SFTGRM)] def
  158. /quotedbl [-9 9 (NFMGMM NGMM NFOGMM WFVGVM WGVM WFXGVM)] def
  159. /A [-13 13 (NHLIJKIMHPHSIUKV JLIOISJU NHLJKLJOJRKVKXJZH[ VHXHXYVY YHYY ZGZZ HFKGQHVHZG\\F JPXP H[KZQYVYZZ\\[)] def
  160. /B [-13 13 (LGLZ MGMZ PFNGNZP[ HJJHLGPFUFXGZIZKYM XHYIYKXM UFWGXIXKWL QUOTNRNPONPMSLVLYM[O\\Q\\T[WYYWZT[P[LZJYHW ZO[Q[UZW VLYNZQZUYXWZ)] def
  161. /C [-13 13 (\\F[HZJXHVGSFQFNGLHJJILHOHRIUJWLYNZQ[S[VZXYZW[Y\\[ [HZMZT[Y ZKYJ ZNYKXIVG JKINISJV NGLIKKJNJSKVLXNZ YWZV VZXXYVZS)] def
  162. /D [-13 13 (KGKZ LGLZ NFMGMZN[ HKIIKGNFSFVGXHZJ[L\\O\\R[UZWXYVZS[N[KZIXHV ZK[N[SZV VGXIYKZNZSYVXXVZ)] def
  163. /E [-13 13 (\\F[HZJXHVGSFQFNGLHJJILHOHRIUJWLYNZQ[S[VZXYZW[Y\\[ [HZMZT[Y ZKYJ ZMXIVG JKINISJV NGLIKKJNJSKVLXNZ YWZV VZXXYVZS JPKONOUQXQZP PPRQURWRYQ MORRUSWSYRZP ZMYLXLWMXNYM)] def
  164. /F [-13 13 (JHJZ MGKHKY OFMGLILYNY HJJHLGOFSFVGXHYI\\F \\F[HZLZO[S\\U ZIYK VGXIYLZO LPMOOOTPWPYO QPTQVQXP NOTRVRXQYOYLXKWKVLWMXL H[JZNYSYYZ\\[)] def
  165. /G [-13 13 (\\F[HZJXHVGSFQFNGLHJJILHOHRIUJWLYNZQ[T[VZXYYXZV[Y\\[ [HZMZT[Y ZKYJ ZNYKXIVG JKINISJV NGLIKKJNJSKVLXNZ XXYVYR VZWYXVXQ KSLRMSLTKTJS JPKNMMOMRNUPWQ KOMNONROTP JPLOOOUQYQZP)] def
  166. /H [-13 13 (JGJZH[ KHKZ NHLHLZ HFJGNHSHYG\\F LPMNOLRKVKYL[N\\Q\\T[UYV ZN[P[SZU VKXLYMZOZSYVYXZZ\\[ H[LZPZU[)] def
  167. /I [-13 13 (QIQY RJRX SISY HFLHPITIXH\\F H[KZOYUYYZ\\[)] def
  168. /J [-13 13 (TIVIVXUZS[ WIWXVY XHXY HFLHPITIXH\\F IOHQHUIXKZN[S[VZXYZW\\T IUJXKY HSJUKXLZN[)] def
  169. /K [-13 13 (JGJZH[ KHKZ NHLHLZ HFJGNHSHYG\\F LPMNOLRKUKXLYMYOXPSRQSPTPUQVRUQT WLXMXOWP UKWMWOVPSR SRVRYSZUZWYX WSYUYW SRVSXUYXZZ[[\\[ H[LZPZU[)] def
  170. /L [-13 13 (JGJZ KHKY NHLHLYNY \\KZNYPXSXUYW[X ZOYRYUZW \\K[MZQZT[X\\[ HFJGNHSHYG\\F H[JZNYSYYZ\\[)] def
  171. /M [-13 13 (QIQY RJRX SISY NYLWJVIUHRHMIJKHMGPFTFWGYH[J\\M\\R[UZVXWVY JUIRIMJJ LWKUJRJLKIMG ZJ[M[RZU WGYIZLZRYUXW HFLHPITIXH\\F H[KZOYUYYZ\\[)] def
  172. /N [-13 13 (JHJZH[ LHKIKZ OFMGLILZ HJJHLGOFSFVGXHZJ[L\\O\\S[UYV ZK[N[RZU VGXIYKZNZRYVYXZZ[[\\[ H[LZPZU[)] def
  173. /O [-13 13 (QFNGLHJJILHOHRIUJWLYNZQ[S[VZXYZW[U\\R\\O[LZJXHVGSFQF JKINISJV NGLIKKJNJSKVLXNZ ZV[S[NZK VZXXYVZSZNYKXIVG)] def
  174. /P [-13 13 (JIJZ MHKJKY QFOGMILKLYNY HKJINGQFTFWGYH[J\\M\\O[RYTVURUOTMRLO ZJ[L[PZR WGYIZLZPYSVU H[JZNYSYYZ\\[)] def
  175. /Q [-13 13 (QFNGLHJJILHOHRIUJWLYNZQ[S[VZXYZW[U\\R\\O[LZJXHVGSFQF JKINISJV NGLIKKJNJSKVLXNZ ZV[S[NZK VZXXYVZSZNYKXIVG JSKUNVTW[W\\X\\Z[[[Z\\Y PWRW KUNWQXSXTW)] def
  176. /R [-13 13 (JIJZH[ KIKZ LHLZ HKJILHNGQFUFYG[I\\K\\N[PZQ YHZI[K[NZP UFWGYIZKZOYQ XRUSRSPRPPROUOXPZR\\U\\W[XZX XQYR[V[WZT TOVPXRYTZX[Z\\[ H[LZPZU[)] def
  177. /S [-13 13 (TFZG\\F[H[JYHWGTFPFMGJJIMIOJRLTOURUTTUSVQVP [GZH[J JPKRLSOTRTTS KIJKJNKPMRPSRSTRVPWOXO LQMQNPPNRMUMWNYPZRZUYXWZ PMRLULXMZO[R[UZW IWJYIZ NPNOOMPLRKUKXL[O\\R\\T[WYYWZT[P[MZKYIWIYH[JZP[)] def
  178. /T [-13 13 (QHMHKIJJILHOHSIVJXKYMZP[S[VZXYZW[U\\R\\N[KYIWH UHTITKULVKUJ ISJVLXNYQZTZWY JJINIQJTLWNXQYTYWXYW[T\\R HFKI KHLG IGJGKFMGQHWHZG\\F)] def
  179. /U [-13 13 (LHJJILHOHRIUJWLYNZQ[U[XZZY KJJLIOISJV KILJLKKMJPJSKVLXNZ VHXHXXWZU[ YHYXXY ZGZY\\[ HFKGQHVHZG\\F)] def
  180. /V [-13 13 (HFR[ IGJHQWRY JGKHRWSX \\FR[ WNUS YLUQTTTV HFJGOHUHZG\\F)] def
  181. /W [-13 13 (LHJJILHOHRIUJWLYNZQ[S[VZXYZW[U\\R\\O[LZJXH JLIOIRJUKW JJKKKLJOJRKVLXNZ YWZU[R[OZL VZXXYVZRZOYLYKZJ QIQ[ RJRZ SIS[ HFLHPITIXH\\F)] def
  182. /X [-13 13 (HFXYYZ IGKHZZ LH\\[ \\FSP QRJZ PSMULW QRMTLUKWKY HFLHPITIXH\\F H[JZNYSYYZ\\[)] def
  183. /Y [-13 13 (XHXZ YHYY ZGZY KHIJHMHPISKUMVPWSWVVXU LUOVUV HPIRKTNUTUVV HFLHPITIXH\\F HWJYLZP[T[XZ\\X)] def
  184. /Z [-13 13 (HFIGKHNHSFVFYGZIZKYM XGYIYKXM VFWGXIXL XNTOROPNPLRKTKXL TKVLWMVNTO YM[O\\R\\T[WYYWZT[P[MZKYIWHTHRIOJNLMNMPNPPOQNPOO XMZO[Q[UZW XNYOZQZUYXWZ)] def
  185. /a [-8 9 (PQMTMXP[TY NTNXPZ OROWRZ RSMNNMONNO ONSNUMWOWXXY UNVOVXUYVZWYVX SNUPUXTYV[XY)] def
  186. /b [-9 8 (NHLFMJMXP[UYWX NHNXPZ NHPFOJOWRZ OOTMWPWX TNVPVX RNUQUY)] def
  187. /c [-7 5 (NPNYP[RY OPOYPZ POPXQYRY NPTMVOTPRN SNUO)] def
  188. /d [-8 8 (RMMPMXP[RZUYWY NPNXPZ OOOWRZ PIPFQIWPWY PIVPVX PIMIPJUPUY)] def
  189. /e [-7 6 (NPNYP[RY OPOYPZ POPXQYRY NPTMWQPU SNVQ RNUR)] def
  190. /f [-7 5 (OIOXNYP[ PIPXOYPZQYPX QHQXRYP[ OIUFWHUISG TGVH LMOM QMUM)] def
  191. /g [-8 9 (MPMXP[UY NPNXPZ OOOWRZ MPOOTMWPW]V_U`SaQaO`MaObQa TNVPV]U_ PaNa RNUQU^T`Sa)] def
  192. /h [-9 9 (NHLFMJMXLYN[ NHNXMYNZOYNX NHPFOJOXPYN[ OORNTMWPWYT]T`UbVbT` TNVPVYU[ RNUQUZT])] def
  193. /i [-5 5 (RFPHRJTHRF RGQHRISHRG RMPOQPQXPYR[ RPSORNQORPRXQYRZSYRX RMTOSPSXTYR[)] def
  194. /j [-5 5 (RFPHRJTHRF RGQHRISHRG RMPOQPQYT] RPSORNQORPRYS[ RMTOSPSZT]T`RbPaPbRb)] def
  195. /k [-9 8 (NHLFMJMXLYN[ NHNXMYNZOYNX NHPFOJOXPYN[ OPRNTMVPSROU SNUP RNTQ RSSTTYV[XY SSTUUYVZ SRTSVXWYXY)] def
  196. /l [-5 5 (RHPFQJQXPYR[ RHRXQYRZSYRX RHTFSJSXTYR[)] def
  197. /m [-13 13 (GOHOIPIXHYJ[ INJOJXIYJZKYJX GOIMKOKXLYJ[ KONNPMSOSXTYR[ PNRORXQYRZSYRX NNQPQXPYR[ SOVNXM[O[X\\YZ[ XNZOZXYYZZ[YZX VNYPYXXYZ[)] def
  198. /n [-9 9 (KOLOMPMXLYN[ MNNONXMYNZOYNX KOMMOOOXPYN[ OORNTMWOWXXYV[ TNVOVXUYVZWYVX RNUPUXTYV[)] def
  199. /o [-8 8 (MPMXP[UYWX NPNXPZ OOOWRZ MPOOTMWPWX TNVPVX RNUQUY)] def
  200. /p [-9 8 (LMMOMXKYMYM_LbN` NON` LMNNOOOXQYRZ NYOYQZ OZP[UYWX OZO_PbN` OORNTMWPWX TNVPVX RNUQUY)] def
  201. /q [-8 9 (MPMXP[UY NPNXPZ OOOWRZ MPOOTMWPW_XbV` TNVPV` RNUQU_TbV`)] def
  202. /r [-7 6 (MONOOPOXNYP[ ONPOPXOYPZQYPX MOOMQOQXRYP[ QOUMWOUPSN TNVO)] def
  203. /s [-8 8 (MPMSOUURWTWX NPNSOT OOOSPT USVTVX TSUTUY MPSMVNTOQN RNUN WXQ[MYOXSZ OYQZ)] def
  204. /t [-5 5 (RHPFQJQXPYR[ RHRXQYRZSYRX RHTFSJSXTYR[ NMQM SMVM)] def
  205. /u [-9 9 (KOLOMPMYP[UY MNNONYPZ KOMMOOOXRZ VMXOWPWXXYYY VPWOVNUOVPVYWZ VMTOUPUYW[YY)] def
  206. /v [-9 9 (LMMOMXQ[SYWW MNNONXQZ LMNNOOOWRYSY VMXOWPWW VPWOVNUOVPVW VMTOUPUX)] def
  207. /w [-13 13 (HMIOIXM[OYQX INJOJXMZ HMJNKOKWNYOY RMPOQPQXU[WY[W RPSORNQORPRXUZ RMTOSPSWVYWY ZM\\O[P[W ZP[OZNYOZPZW ZMXOYPYX)] def
  208. /x [-9 9 (LONPUZV[XY MNOOUYWZ LONMONVXXY XMVMVOXOXMVOSS QUNYL[N[NYLYL[ NTQT STVT)] def
  209. /y [-9 9 (KOLOMPMYP[UY MNNONYPZ KOMMOOOXRZ VMXOWPW]V_U`SaQaO`MaObQa VPWOVNUOVPV^U_ PaNa VMTOUPU^T`Sa)] def
  210. /z [-6 9 (RNOPOORNTMWOWSRU TNVOVS RNUPUSTT RUWWW]V_U`SaQaO`MaObQa VWV^U_ PaNa TVUWU^T`Sa)] def
  211. /.notdef [ 0 0 () ] def        % not defined
  212. end
  213. /Hershey-Gothic-Italian 0.6 0 MakeHersheyFont
  214.